(deftemplate animal
    (slot nume)
    (slot mod_viata)
    (slot mediu_viata)
    (slot reproducere)
    (slot regim_alimentar)
    (slot zona)
    (multislot mananca)
 )



(defrule rule1(animal(nume ?n)(mediu_viata terestru)) =>
    (printout t "Animal terestru : " ?n crlf))

(defrule rule2(animal(nume ?n)(regim_alimentar ierbivor)(zona mediteraneana)) =>
    (printout t "Animal ierbivor din zona mediteraneana: " ?n crlf))

(defrule rule3(animal(nume ?n)(mananca $? ?m $?))(animal(nume ?m)) =>
    (printout t ?n " mananca " ?m crlf))

(deffacts fact
    (animal(nume iepure)(mod_viata diurn)(mediu_viata terestru)(reproducere pui)
        (regim_alimentar ierbivor)(zona mediteraneana)(mananca morcovi))
    (animal(nume caprioara)(mod_viata diurn)(mediu_viata terestru)(reproducere pui)
        (regim_alimentar ierbivor)(zona mediteraneana)(mananca ierburi))
    (animal(nume bufnita)(mod_viata nocturn)(mediu_viata aerian)(reproducere oua)
        (regim_alimentar carnivor)(zona tundra)(mananca liliac broasca))
    (animal(nume maimuta)(mod_viata diurn)(mediu_viata terestru)(reproducere pui)
        (regim_alimentar ierbivor)(zona tropicala)(mananca banane))
    (animal(nume cartita)(mod_viata diurn)(mediu_viata subteran)(reproducere pui)
        (regim_alimentar ierbivor)(zona mediteraneana)(mananca gandaci viermi))
    (animal(nume lup_de_mare)(mod_viata diurn)(mediu_viata acvatic)(reproducere oua)
        (regim_alimentar ierbivor)(zona mediteraneana)(mananca pesti alge))
    (animal(nume ursul_polar)(mod_viata diurn)(mediu_viata terestru)(reproducere pui)
        (regim_alimentar carnivor)(zona polara)(mananca foca))
    (animal(nume tirgu)(mod_viata diurn)(mediu_viata terestru)(reproducere pui)
        (regim_alimentar carnivor)(zona tropicala)(mananca caprioare))
     (animal(nume foca)(mod_viata diurn)(mediu_viata terestru)(reproducere pui)
        (regim_alimentar carnivor)(zona polara)(mananca pesti))
    )
(reset)
(run)